Logs OPC Data Access item changes into an SQL database, using a subscription. Values of all data types are stored in a single NVARCHAR column.
The main program:
// ReSharper disable StringLiteralTypo // LogAsStringToSql: Logs OPC Data Access item changes into an SQL database, using a subscription. Values of all data types // are stored in a single NVARCHAR column. // // The database creation script is in the ExamplesNet\MSSQL\QuickOPCExamples.sql file under the product installation // directory. The example assumes that the database is already created. // // Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . using System; using System.Data; using System.Data.SqlClient; using System.Data.SqlTypes; using System.Diagnostics; using OpcLabs.BaseLib.Runtime.InteropServices; using OpcLabs.EasyOpc.DataAccess; using OpcLabs.EasyOpc.DataAccess.OperationModel; namespace LogAsStringToSql { class Program { static void Main() { ComManagement.Instance.AssureSecurityInitialization(); const string connectionString = "Data Source=(local);Initial Catalog=QuickOPCExamples;Integrated Security=true"; Console.WriteLine("Starting up..."); using (var connection = new SqlConnection(connectionString)) { connection.Open(); // Create all necessary ADO.NET objects. var adapter = new SqlDataAdapter("SELECT * FROM LogAsString", connection); var dataSet = new DataSet(); adapter.FillSchema(dataSet, SchemaType.Source, "LogAsString"); adapter.InsertCommand = new SqlCommandBuilder(adapter).GetInsertCommand(); DataTable table = dataSet.Tables["LogAsString"]; Debug.Assert(!(table is null)); Console.WriteLine("Logging for 30 seconds..."); // Subscribe to OPC items, using an anonymous method to process the notifications. int[] handles = EasyDAClient.SharedInstance.SubscribeMultipleItems( new[] { new DAItemGroupArguments("", "OPCLabs.KitServer.2", "Simulation.Incrementing (1 s)", 100, null), new DAItemGroupArguments("", "OPCLabs.KitServer.2", "Simulation.Ramp (10 s)", 1000, null), new DAItemGroupArguments("", "OPCLabs.KitServer.2", "Simulation.Register_BSTR", 1000, null), new DAItemGroupArguments("", "OPCLabs.KitServer.2", "Simulation.Register_BOOL", 1000, null) }, (_, eventArgs) => { Debug.Assert(!(eventArgs is null)); Console.Write("."); // In this example, we only log valid data. Production logger would also log errors. if (!(eventArgs.Vtq is null)) { // Fill a DataRow with the OPC data, and add it to a DataTable. Debug.Assert(!(table.Rows is null)); table.Rows.Clear(); DataRow row = table.NewRow(); row["ItemID"] = eventArgs.Arguments.ItemDescriptor.ItemId; row["Value"] = eventArgs.Vtq.Value; // The DataRow will make the conversion to a string. row["Timestamp"] = (eventArgs.Vtq.Timestamp < (DateTime) SqlDateTime.MinValue) ? (DateTime)SqlDateTime.MinValue : eventArgs.Vtq.Timestamp; row["Quality"] = (short)eventArgs.Vtq.Quality; Debug.Assert(!(table.Rows is null)); table.Rows.Add(row); // Update the underlying DataSet using an insert command. adapter.Update(dataSet, "LogAsString"); } } ); System.Threading.Thread.Sleep(30*1000); Console.WriteLine(); Console.WriteLine("Shutting down..."); EasyDAClient.SharedInstance.UnsubscribeMultipleItems(handles); } Console.WriteLine("Finished."); } } }
' LogAsStringToSql: Logs OPC Data Access item changes into an SQL database, using a subscription. Values of all data types are ' stored in a single NVARCHAR column. ' ' The database creation script is in the ExamplesNet\MSSQL\QuickOPCExamples.sql file under the product installation ' directory. The example assumes that the database is already created. ' ' Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports OpcLabs.BaseLib.Runtime.InteropServices Imports OpcLabs.EasyOpc.DataAccess Imports OpcLabs.EasyOpc.DataAccess.OperationModel Friend Class Program Shared WithEvents _client As New EasyDAClient Shared _adapter As SqlDataAdapter Shared _dataSet As DataSet Shared _table As DataTable <MTAThread> ' needed for COM security initialization to succeed Shared Sub Main() ComManagement.Instance.AssureSecurityInitialization() Const connectionString As String = "Data Source=(local);Initial Catalog=QuickOPCExamples;Integrated Security=true" Console.WriteLine("Starting up...") Using connection = New SqlConnection(connectionString) connection.Open() ' Create all necessary ADO.NET objects. _adapter = New SqlDataAdapter("SELECT * FROM LogAsString", connection) _dataSet = New DataSet() _adapter.FillSchema(_dataSet, SchemaType.Source, "LogAsString") _adapter.InsertCommand = (New SqlCommandBuilder(_adapter)).GetInsertCommand() _table = _dataSet.Tables("LogAsString") Debug.Assert(_table IsNot Nothing) Console.WriteLine("Logging for 30 seconds...") ' Subscribe to OPC items, using an anonymous method to process the notifications. Dim [handles]() As Integer = _client.SubscribeMultipleItems(New DAItemGroupArguments() { New DAItemGroupArguments("", "OPCLabs.KitServer.2", "Simulation.Incrementing (1 s)", 100, Nothing), New DAItemGroupArguments("", "OPCLabs.KitServer.2", "Simulation.Ramp (10 s)", 1000, Nothing), New DAItemGroupArguments("", "OPCLabs.KitServer.2", "Simulation.Register_BSTR", 1000, Nothing), New DAItemGroupArguments("", "OPCLabs.KitServer.2", "Simulation.Register_BOOL", 1000, Nothing) }) Threading.Thread.Sleep(30 * 1000) Console.WriteLine() Console.WriteLine("Shutting down...") _client.UnsubscribeMultipleItems([handles]) End Using Console.WriteLine("Finished.") End Sub Private Shared Sub ItemChanged(ByVal sender As Object, ByVal eventArgs As EasyDAItemChangedEventArgs) Handles _client.ItemChanged Debug.Assert(eventArgs IsNot Nothing) Console.Write(".") ' In this example, we only log valid data. Production logger would also log errors. If eventArgs.Vtq IsNot Nothing Then ' Fill a DataRow with the OPC data, and add it to a DataTable. Debug.Assert(_table.Rows IsNot Nothing) _table.Rows.Clear() Dim row As DataRow = _table.NewRow() row("ItemID") = eventArgs.Arguments.ItemDescriptor.ItemId row("Value") = eventArgs.Vtq.Value row("Timestamp") = If(eventArgs.Vtq.Timestamp < CDate(SqlDateTime.MinValue), CDate(SqlDateTime.MinValue), eventArgs.Vtq.Timestamp) row("Quality") = CShort(Fix(eventArgs.Vtq.Quality)) Debug.Assert(_table.Rows IsNot Nothing) _table.Rows.Add(row) ' Update the underlying DataSet using an insert command. _adapter.Update(_dataSet, "LogAsString") End If End Sub End Class
Copyright © 2004-2024 CODE Consulting and Development, s.r.o., Plzen. All rights reserved.
Send Documentation Feedback. Technical Support